-- card: 5199 from stack: in
-- bmap block id: 14548
-- flags: 0000
-- background id: 4989
-- name: Parameter 5
----- HyperTalk script -----
on radioRL
  put "10,11" into buttonList  -- id #s of radio buttons
  repeat with x = 1 to the number of items of buttonList
    set hilite of button id (item x of buttonList) to false
  end repeat

  set hilite of the target to true
end radioRL

on setParameters
  global rotIncrement5,timeIncrement5
  global puckIncX,puckIncY
  global trace5
  put 140 into radius

  put card field "Time Increment" into timeIncrement5

  put (card field "Angular Velocity" * (pi/180)) into angVelRad
  put  angVelRad*timeIncrement5 into rotIncrement5
  put (radius*angVelRad) into tanVelocity

  put card field "Puck Speed" into puckSpeed
  if hilite of button "Right of Center" is true then
    put (card field "Puck Angle"*(pi/180)) into puckAngle
  else put -(card field "Puck Angle"*(pi/180)) into puckAngle
  put -(puckSpeed*cos(puckAngle))*timeIncrement5 into puckIncY
  put ((puckSpeed*sin(puckAngle))+tanVelocity)*timeincrement5 into puckIncX

  put hilite of button "Trace Puck Path" into trace5
end setParameters






-- part 10 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=46 top=122 right=144 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left of Center
----- HyperTalk script -----
on mouseUp
  radioRL
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=165 top=122 right=144 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right of Center
----- HyperTalk script -----
on mouseUp
  radioRL
end mouseUp



-- part 2 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=65 right=82 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Angular Velocity


-- part 4 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=85 right=102 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Puck Speed


-- part 5 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=105 right=122 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Puck Angle
----- HyperTalk script -----
on closeField
  get me
  if it > 90 or it < 0 then
    answer "That value must be between 0 and 90."
    select line 1 of me
  end if
end closefield


-- part 7 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=144 right=161 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time Increment


-- part 16 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=46 top=165 right=187 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trace Puck Path
----- HyperTalk script -----
on mouseUp
  setCheckBox
end mouseUp



-- part 19 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=11 top=40 right=326 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Help


-- part contents for background part 6
----- text -----
Changing values in the top half alters the path of the puck.


-- part contents for card part 2
----- text -----
90

-- part contents for card part 7
----- text -----
.01

-- part contents for card part 5
----- text -----
57.4

-- part contents for card part 4
----- text -----
259.92

-- part contents for card part 19
----- text -----
   The parameters below the gray bar are constants provided for your benefit.  They may not be changed without altering the calculation scripts attached to the card.
  The parameters listed above the bar are variable.  To change any of them, drag across the box holding the value and type the new value.  Pressing <return> will automatically select the value in the next field.
   Any change in the controlled parameters will be reflected as a change in the outcome of the experiment.  Feel free to play around.  
   Try these parameters:
      Ang Vel:             36             18
      Push Speed:        92.3           52
      Push Angle:        72.3 L         57.5 L